home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / misc / VideoEasel.lha / Video Easel / CAMRexx / HPP-Gas_Borders.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-09  |  950b  |  38 lines
  1. /* HPP-Gas by an idea of Toffoli, in CAMRexx by THOR */
  2.  
  3. MakeAlgorithm:
  4.    if plane=0 then
  5.       PLANEALGORITHM margolus hvphases
  6.    if plane=1 then
  7.       PLANEALGORITHM echo center1
  8. return
  9.  
  10. MakePlane:
  11.    if plane=0 then; do
  12.       if center_ then
  13.          SETPLANE off
  14.       else; do
  15.          if (center=opp & cw=ccw & center~=cw) | opp_ then
  16.                do
  17.                   if opp_ then; do
  18.                      if cw_=ccw_ then
  19.                         SETPLANE center
  20.                      else; do
  21.                         if cw_  then
  22.                            SETPLANE ccw
  23.                         if ccw_ then
  24.                            SETPLANE cw
  25.                      end
  26.                   end; else; do
  27.                      if cw_ | ccw_ then
  28.                         SETPLANE center
  29.                      else
  30.                         SETPLANE cw
  31.                   end
  32.                end
  33.          else  SETPLANE opp
  34.       end
  35.    end
  36. return
  37.  
  38.